character(88)::s="character(88)::s="//char(34)//";print'(*(A))',s(:18),s(:18),'//char(34)//',s(18:),s(18:18),s(19:);end";print'(*(A))',s(:18),s(:18),'//char(34)//',s(18:),s(18:18),s(19:);end